  10 P=0
  20 clear 
  30 P=0
  40 box 0,-20,2,40,1
  50 X=rnd (60)-70
  60 box X,-35,10,10,1
  70 box -X+2,-25,10,10,1;F=-X+3
  80 Q=-X+2
  90 print 
 100 print "ANGLE=",
 110 U=KP-48
 120 goto 510
 130 print #1,U
 140 print "DROP ALTITUDE=",
 150 J=10mul (KP-48)
 160 if J>40goto 460
 170 V=KP-48
 180 D=J+V
 190 print #1,D
 200 M=-30
 210 box X,M,1,1,1
 220 NT=2
 230 MU=2mul (M+30)
 240 X=X+A
 250 if X>79goto 330
 260 if M>D P=1;X=X+1
 270 if P=0 M=M+T
 280 if P=1M=M-T
 290 if X>0 if X<3 if M<0 goto 330
 300 if M<-30goto 330
 310 if M<-20 if M>-30 if X<Q+5 if X>Q-5 goto 370
 320 goto 210
 330 print "MISS!"
 340 for C=1to 500
 350 next C
 360 goto 20
 370 .
 380 for W=1to 13
 390 box F+rnd (5)-5,-25+rnd (10)-5,2,3,3
 400 next W
 410 print ;print ;print 
 420 print "            ***A HIT!***"
 430 for Z=1to 200
 440 next Z
 450 goto 20
 460 print "D0N'T G0     0VER 49"
 470 for I=1to 400
 480 next I
 490 box -10,10,155,35,2
 500 goto 140
 510 if U=1 A=1;T=5;goto 130
 520 if U=2 A=1;T=3;goto 130
 530 if U=3 A=2;T=3;goto 130
 540 if U=4 A=3;T=3;goto 130
 550 if U=5A=3;T=2;goto 130
 560 print "USE 1-5 ONLY!"
 570 goto 100
>:return 